﻿Public Class MuhKucukYaslilikBolgelereGore
	Inherits ProcessReport

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Text = "Küçük Yaşlılık Ödemeleri Özet Raporu"
				InitialHelp = "Döküm almak tarih aralığını girin."
				AddDateRange("@Tarih", "nl", "", "", "Başlangıç tarihini girmelisiniz.", "Bitiş tarihini girmelisiniz.")
			Case EventType.ValidateForm
				If Check("Tarih1", Year(Input("Tarih1")) <> Year(Input("Tarih2")), "Tarihler aynı yıl içinde olmalıdır.") Then Exit Sub
				Rs = Muhasebe.KucukYaslilik.BolgelereGoreDagilim(Remote, Input("Tarih1"), Input("Tarih2"))
				e.Result = True
			Case EventType.ReportHeader
				Report.PrintHeader("YAŞLILIK HESAP KOLLARININ BÖLGELERE GÖRE DAĞILIMI")
			Case EventType.PageHeader
				Report.PrintPageHeader("Tarih : " & DMY(Input("Tarih1")) & " - " & DMY(Input("Tarih2")), "Döküm Tar. : " & DMY(Today))
				Report.SetColumns("Hesap No.;Hesap Adı;Şube;Tutar", "2;6;1;2", "c;l;c;m", "-")
			Case EventType.ReportDetail
				Dim RsToplam As Recordset = Rs.GroupBy("hesapno,hesapadi,sum(tutar)")
				Do Until RsToplam.EOF
					Rs.CreateSubset("hesapno='" & RsToplam("hesapno") & "'")
					Do Until Rs.Subset.EOF
						Report.Print(Rs.Subset("hesapno"), Rs.Subset("hesapadi"), Rs.Subset("sube"), Rs.Subset("tutar"))
						Rs.Subset.MoveNext()
					Loop
					Report.PrintTotal(RsToplam("hesapno"), RsToplam("hesapadi"), "", RsToplam("sumtutar"))
					Report.SkipLine()
					RsToplam.MoveNext()
				Loop
				Report.SkipLine()
				Report.PrintTotal("", "", "", Rs.Sum("tutar"))
		End Select
	End Sub

End Class
